home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8506.d64 / demo ii (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  858b  |  40 lines
  1. 100 IFHTHENPOKE45,L:POKE46,H
  2. 110 IFPEEK(50000)=56ANDPEEK(50001)=253THEN160
  3. 120 L=PEEK(45):H=PEEK(46)
  4. 130 A=1
  5. 140 LOAD"SCROLL-MACHINE",8,1
  6. 150 :
  7. 160 PRINT"[147]":SYS49152
  8. 170 IFUSR(40960)<>160THEN:_LD"PSEUDO II"
  9. 180 :
  10. 190 :
  11. 210 :
  12. 220 V=53248
  13. 230 PRINT"[147]"
  14. 240 _RS:REM RESET
  15. 250 _CP:REM ZEICHENSATZ KOPIEREN
  16. 260 REM RASTERZEILEN WAEHLEN
  17. 270 _RZ106,115,232
  18. 280 REM FEHLER BESEITIGEN
  19. 290 _SU4
  20. 300 _MT40960,204,40:REM AA,XD,YD
  21. 310 REM VIDEO-RAM
  22. 320 _VI52224+8*40,16
  23. 330 REM HINTERGRUNDFARBEN
  24. 340 _HF10,2,0
  25. 350 REM VORDERGRUNDFARBE
  26. 360 _ZF2
  27. 370 _JS2:REM JOYMODE
  28. 380 REM BESCHLEUNIGUNG U. HOECHSTGESCHW.
  29. 390 _TB 16,16:_TG 10000,10000
  30. 400 _GM2:_GR0,204*8-21*8,0,40*8-16*8
  31. 410 _US1:REM SOFT-SCROLL AN
  32. 420 PRINT"EINE SOLCHE KONFIGURATION IST AUCH
  33. 430 [153]"MOEGLICH. JEDES FENSTER KANN BELIEBIG
  34. 440 PRINT"GROSS SEIN.
  35. 450 [153]" JOYSTICK IN PORT 2"
  36. 460 [151]214,22:[153]
  37. 470 [153]"DIESER RAUM KANN FUER DAS PUNKTEKONTO
  38. 480 PRINT"  ETC. BENUETZT WERDEN.";
  39. 490 GOTO490
  40.